Sub  LoadEnvVars( Path_ofSetCommandLog, Option_ )

ファイルを参照して、複数の環境変数を現在のプロセスに設定します。

【引数】

Path_ofSetCommandLog

環境変数の設定の一覧のファイルパス、または辞書

環境変数全体を、ファイルに記述された値に設定します。

Sub  SaveEnvVars( Path_ofSetCommandLog, Option_ )

現在の環境変数をファイルに保存するか、辞書に格納します。

【引数】

Path_ofSetCommandLog

ファイルパス、または辞書、または Empty

Option_

Empty 固定

Path_ofSetCommandLog に、値が入っていない（Empty の）変数を指定したら、
内部で Dictionary オブジェクトを生成して、その中に環境変数の設定値を
格納します。

サンプル：

Sub  ClearEnvVars()

現在のプロセスの環境変数をほぼすべて削除します。

(src)

[ 親: 環境変数 ]

→ T_Var.vbs # T_LoadEnvVars

テスト

VBScript から削除できない環境変数は残ります。

Function  OpenForEnvVarsFile( EnvVarsFilePath as string ) as EditEnvVarsFile

(src)

環境変数ファイルを編集します。

Property  .Path as string

.get_

Sub  SetVarInBatchFile( Path as string, Symbol as string, Value as variant )

バッチ・ファイルの中で、環境変数を設定している部分の値を変更します。

【引数】

Path

Symbol

バッチ・ファイルのパス

環境変数の名前

Value

環境変数の値

テスト

→ T_VarFile.vbs

T_SetVarInBatchFile

ソース

→ vbslib.vbs

Sub  Start_VBS_Lib_Settings()

Setting コマンド

を起動します。

→ vbslib.vbs

ソース

→ SettingTemplate.xml

    Dim  e  ' as Err2
    If TryStart(e) Then  On Error Resume Next
        ...
    If TryEnd Then  On Error GoTo 0
    If e.num = E_FileNotExist  Then ... : e.Clear
    If e.num <> 0 Then  e.Raise

→ メンバ変数 (Err2)

関連

→ Err2::BreakErrID

TryStart

TryStart

  Public  Number       ' Err.Number
  Public  num          ' Err.Number
  Public  Description  ' Err.Description (Error Message)
  Public  desc         ' Err.Description (Error Message)
  Public  Source       ' Err.Source
  Public  ErrID        ' count of (num <> 0) in each first Copy after Clear
  Public  RaiseID      ' count of (num <> 0) in Copy
  Public  BreakErrID   ' as integer
  Public  BreakRaiseID ' as integer

(src)

Property Get  Err2::Number() as integer

エラーコード。

Property Get  Err2::Description() as string

エラー・メッセージ。

Property Get  Err2::ErrStr() as string

XML形式のエラーメッセージ。

エラーメッセージの例：

Function  Err2::GetErrStr() as string

標準形式のエラーメッセージを返す。

(src)

エラーメッセージの例：

Property Get  Err2::DebugHint() as string

エラーの内容とデバッグのヒント。

サンプル：

Function  Err2::Value() as string

エラーの内容を文字列型で返します。

(src)

廃止されました

→ DebugHint (Err2)

Sub  Err2::Copy( err as Err )

err オブジェクトの内容をコピーします。

(src)

Sub  Err2::Raise()

同じ内容のエラーを再度発生させる。

(src)

Sub  Err2::OverRaise( e_num as integer, e_desc as string )

エラーの内容を変えて、再度エラーを発生させる。

(src)

サンプル

Sub  Err2::Clear()

エラーをクリアする。

エラー処理が終わったことを示すため、メンバ変数をリセットします。

Sub  Err2::CopyAndClear( out_e2 as Err2 )

エラーの情報を out_e2 にコピーしてから Err2 のエラーをクリアします。

→ エラーメッセージをチェックするテスト

参考

内部で Err2 オブジェクトが生成されて、out_e2 に格納されます。

テスト

→ T_Err2_Main.vbs # T_Err2_CopyAndClear

(src)

CopyAndClear した後でエラーが発生した場合、テストによるエラーであると判断して、
次のようなメッセージが表示されます。

Sub  Err2::EnqueueAndClear()

エラーの情報を Err2 の内部キューに入れてから Err2 のエラーをクリアします。

テスト

→ T_Err2_Main.vbs # T_Err2_EnqueueAndClear

サンプル

Function  Err2::DequeueAll() as string

Err2 の内部キューの内容を返し、内部キューを空にします。

テスト

→ T_Err2_Main.vbs # T_Err2_EnqueueAndClear

エラーがキューに入っていないときは、"" を返します。

参考

→ EnqueueAndClear (Err2)

(src)

Dim  Err2::ErrID  as integer

エラーの通し番号。

エラーが発生して初めての TryEnd を通ったとき +1 されます。
Err2::Clear した後で、次のエラーが発生すると +1 されます。

→ Err2::BreakErrID

関連

Dim  Err2::RaiseID  as integer

エラーの通し番号。

エラーが発生して TryEnd を通るたびに +1 されます。
Err2::Clear で 0 に戻ります。

Dim  Err2::BreakErrID  as integer

デバッガでブレークするエラーの通し番号。

エラーメッセージの前に g_debug を設定するように表示されます。 このメッセージに従って、
デバッガを起動すると、エラーが発生した場所でブレークします。